home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / REXX / Beep.xdme < prev    next >
Text File  |  1995-08-01  |  445b  |  12 lines
  1. /**************************************************************************/
  2. /* $VER: Beep.xdme 1.0 (01 Aug 1995) Copyright © 1995 Fergus Duniho       */
  3. /**************************************************************************/
  4.  
  5. LIBS.intuition = '00 00 00 00'x
  6. LIBS.intuition.OPENCOUNT = 0
  7. LIBS.intuition.DisplayBeep='FFA0'x||I||'2009'x
  8.  
  9. call GenOpenLib("intuition",0)
  10. call GenACall("intuition","DisplayBeep",0)
  11. call GenCloseLib("intuition")
  12.